home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_21_(10-1984).d64 / song - twinkle (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  417b  |  25 lines
  1. 10 REM SONG
  2. 20 :
  3. 30 S=54272
  4. 40 POKE S+5,9:POKE S+6,0
  5. 50 POKE S+24,15
  6. 60 :
  7. 62 REM NEXT
  8. 64 READ HF,LF,DR
  9. 70 IF HF=0 THEN END
  10. 80 POKE S+1,HF:POKE S,LF
  11. 90 POKE S+4,17
  12. 100 FOR I=1 TO DR:NEXT
  13. 110 POKE S+4,16
  14. 120 FOR T=1 TO 50:NEXT
  15. 130 GOTO 60
  16. 140 :
  17. 200 DATA 17,37 ,250,17,37 ,250
  18. 210 DATA 25,177,250,25,177,250
  19. 220 DATA 28,214,250,28,214,250
  20. 230 DATA 25,177,500
  21. 240 DATA 22,227,250,22,227,250
  22. 250 DATA 21,154,250,21,154,250
  23. 260 DATA 19,63 ,250,19,63 ,250
  24. 270 DATA 17,37 ,500,0,0,0
  25.